(smtpmail-send-data-1): Escape "." at the start of

any line of data, not just lines containing nothing else.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index e6c076704498c2712d46999ec5a155d43b93c8d8..925a6ec2e838aad3c3357696ba8edcc911c6d5c4 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -404,10 +404,10 @@ don't define this value.")
       (insert data "\r\n"))
 
   (setq smtpmail-read-point (point))
-  (process-send-string process data)
-  ;; . -> ..
-  (if (string-equal data ".")
+  ;; Escape "." at start of a line
+  (if (eq (string-to-char data) ?.)
       (process-send-string process "."))
+  (process-send-string process data)
   (process-send-string process "\r\n")
   )